######按两种方法安装所需的包
install.packages("openxlsx")
install.packages("readxl")
####读取文件8305211205 魏林风
a <- read.table("D:/网页下载/ADdata/ADdata1.txt")
b <- read.table("D:/网页下载/ADdata/ADdata4.txt")
g=merge(a,b,by="row.names",all = TRUE,no.dups = TRUE)
#merge只能合并两个文件所以将两个txt先合并
rownames(g)=g[,1]
#将第一列作为行名
g=g[,-1]
#已经有行名了，将与行名的第一列删除
c=read.csv("D:\\网页下载\\ADdata\\ADdata2.csv")
rownames(c) <- c[,1]
c=c[,-1]
library("readxl")
d=read_excel("D:\\网页下载\\ADdata\\ADdata3.xlsx")
d <- as.data.frame(d) 
rownames(d) <- d[,1]
d=d[,-1]
h=merge(c,d,by="row.names",all = TRUE,no.dups = TRUE)
rownames(h)=h[,1]
h=h[,-1]
#二次合并                          
k=merge(g,h,by="row.names",no.dups = TRUE,all = TRUE)
rownames(k)=k[,1]
k=k[,-1]
#另一种打开xlsx文件的方法
library("openxlsx")
f=read.xlsx("D:\\网页下载\\ADdata\\ADdata3.xlsx")
write.csv(k,file="C:\\Users\\37761\\Desktop\\R语言\\第三次\\k.csv")
#存为csv文件
write.table(k,file="C:\\Users\\37761\\Desktop\\R语言\\第三次\\k.txt")
#存为txt文件
write.xlsx(k,file="C:\\Users\\37761\\Desktop\\R语言\\第三次\\k.xlsx")
#存为xlsx文件

